Leadtools.Dicom.Common.Anonymization Namespace > MacroProcessor<T> Class : Process Method |
'Usage Dim instance As MacroProcessor(Of T) Dim item As T Dim template As String Dim value As String value = instance.Process(item, template)
Public Sub MacroProcessorSample() Dim processor As New MacroProcessor(Of Object)() ' ' add two macros to the macro processor ' processor.Macros.Add("current_date", New MacroSubsitutionDelegate(Of Object)(AddressOf CurrentDateMacro)) processor.Macros.Add("current_time", New MacroSubsitutionDelegate(Of Object)(AddressOf CurrentTimeMacro)) ' ' Process a macro string ' Console.WriteLine(processor.Process(processor, "${current_date} ==> ${current_time}")) End Sub Private Function CurrentDateMacro(ByVal userData As Object, ByVal name As String, ByVal ParamArray parameters As Object()) As String Return DateTime.Now.ToShortDateString() End Function Private Function CurrentTimeMacro(ByVal userData As Object, ByVal name As String, ByVal ParamArray parameters As Object()) As String Return DateTime.Now.ToShortTimeString() End Function
public void MacroProcessorSample() { MacroProcessor<object> processor = new MacroProcessor<object>(); // // add two macros to the macro processor // processor.Macros.Add("current_date", new MacroSubsitutionDelegate<object>(CurrentDateMacro)); processor.Macros.Add("current_time", new MacroSubsitutionDelegate<object>(CurrentTimeMacro)); // // Process a macro string // Console.WriteLine(processor.Process(processor, "${current_date} ==> ${current_time}")); } private string CurrentDateMacro(object userData, string name, params object[] parameters) { return DateTime.Now.ToShortDateString(); } private string CurrentTimeMacro(object userData, string name, params object[] parameters) { return DateTime.Now.ToShortTimeString(); }
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2